20 PRINT"[147]":POKE53280,1:POKE53281,1:POKE198,0
30 REM IF COMPUTER IS +4, DELETE "REM" IN LINE 40
40 REM COLOR 0,2:POKE65305,249
50 DIMIN$(720),HO%(720),MH(12),ML(12),AR(12),AS(12),NO%(720),D%(50)
60 BL$="                                        "
70 FORT=1TO12:READMH(T):NEXT:FORT=1TO12:READML(T):NEXT
80 FORT=1TO12:READAR(T):NEXT:FORT=1TO12:READAS(T):NEXT
90 FORT=1TO8:READDI$(T):NEXT
100 OPEN15,8,15:OPEN1,8,2,"RC.INDEX,S,R"
110 INPUT#15,A:IFA=62THENGOSUB240:GOTO1110
120 INPUT#1,RC%,TR%,HD$,CD$,MP$,AP$,MS$,AS$:GOSUB240:IFRC%=720THENRC%=0
130 GOTO1110
140 OPEN4,4,7:CMD4:RETURN
150 PRINT#4:CLOSE4:RETURN
160 PRINT#15,"P"+CHR$(2)+CHR$(LB)+CHR$(HB)+CHR$(1):RETURN
170 HB=INT(X1/256):LB=X1-HB*256:RETURN
180 RC$="":FORA=1TO100:GET#1,A$:RC$=RC$+A$:NEXT:RETURN
190 PRINT#15,"I0":RETURN
200 CLOSE1:OPEN1,8,2,"WX.DATA,L,"+CHR$(100):RETURN
210 OPEN15,8,15:GOSUB190:RETURN
220 GETG$:IFG$=""THEN220
230 RETURN
240 CLOSE1:CLOSE15:RETURN
250 MO=0:PRINT"[147][197]NTER NUMBER OF MONTH FOR REPORT:";:INPUTMO
260 YR=0:PRINT"[147][197]NTER YEAR FOR REPORT";:INPUTYR
270 IFMO<1ORMO>12THEN250
280 PRINT"[147]                  [215]AIT!!"
290 HI=0:LO=200:BA=0:RA=0:SN=0:WS=0:DE=0:ED=0:RH=0:BL=33:PC=0
300 PRINT"             [208]REPARING [210]EPORT":GOSUB210:GOSUB200
310 FORX1=1TOTR%:GOSUB170:G$="":GOSUB160
320 FORA=1TO6:GET#1,A$:G$=G$+A$:NEXT
330 IFYR<>VAL(MID$(G$,5,2))THEN360
340 IFMO=VAL(MID$(G$,3,2))THENGOSUB630
350 IFMO<VAL(MID$(G$,3,2))THENX1=TR%
360 NEXT:CLOSE1:GOSUB190:CLOSE15
370 IFLO=200THENPRINT"[147][206]O DATA FOR THIS MONTH EXISTS.":GOTO620
380 IFPR=1THENGOSUB140
390 PRINT"[147]  [205]ONTHLY [210]EPORT FOR :[146]";MO;"/"YR
400 PRINT"[206]ORMAL [200]IGH:";MH(MO);:PRINT"   [206]ORMAL [204]OW:"ML(MO)
410 PRINT"[206]ORMAL [210]AIN: "AR(MO);:PRINT"  [206]ORMAL [211]NOW: "AS(MO)
420 PRINT"[200]IGHEST [194]AROMETER READING..."BA:
430 PRINT"ON "MID$(DA$(1),3,2)"/"MID$(DA$(1),1,2)"/"MID$(DA$(1),5,2)
440 PRINT"[204]OWEST [194]AROMETER READING...."BL
450 PRINT"ON "MID$(DA$(2),3,2)"/"MID$(DA$(2),1,2)"/"MID$(DA$(2),5,2)
460 PRINT"[200]IGHEST [212]EMPERATURE........."HI
470 PRINT"ON "MID$(DA$(3),3,2)"/"MID$(DA$(3),1,2)"/"MID$(DA$(3),5,2)
480 PRINT"[204]OWEST [212]EMPERATURE.........."LO
490 PRINT"ON "MID$(DA$(4),3,2)"/"MID$(DA$(4),1,2)"/"MID$(DA$(4),5,2)
500 PRINT"[200]IGHEST [215]IND "WS" FROM ";DI$(WD)
510 PRINT"ON "MID$(DA$(5),3,2)"/"MID$(DA$(5),1,2)"/"MID$(DA$(5),5,2)
520 PRINTPC;"[196]AYS WITH PRECIPITATION."
530 PRINT"[205]OST RAINFALL..............."RA
540 PRINT"ON "MID$(DA$(6),3,2)"/"MID$(DA$(6),1,2)"/"MID$(DA$(6),5,2)
550 PRINT"[200]EAVIEST [211]NOWFALL..........."SN
560 PRINT"ON "MID$(DA$(7),3,2)"/"MID$(DA$(7),1,2)"/"MID$(DA$(7),5,2)
570 PRINT"[200]IGHEST [200]UMIDITY............"RH
580 PRINT"ON "MID$(DA$(9),3,2)"/"MID$(DA$(9),1,2)"/"MID$(DA$(9),5,2)
590 PRINT"[212]OTAL [200]EATING [196]EGREE [196]AYS..."DE
600 PRINT"[212]OTAL [195]OOLING [196]EGREE [196]AYS..."ED
610 IFPR=1THENGOSUB150
620 GOSUB2350:RETURN
630 GOSUB160:GOSUB180
640 IFBA<VAL(MID$(RC$,7,5))THENBA=VAL(MID$(RC$,7,5)):DA$(1)=MID$(RC$,1,6)
650 IFBL>VAL(MID$(RC$,7,5))THENBL=VAL(MID$(RC$,7,5)):DA$(2)=MID$(RC$,1,6)
660 IFHI<VAL(MID$(RC$,13,3))THENHI=VAL(MID$(RC$,13,3)):DA$(3)=MID$(RC$,1,6)
670 IFLO>VAL(MID$(RC$,16,3))THENLO=VAL(MID$(RC$,16,3)):DA$(4)=MID$(RC$,1,6)
680 IFWS<VAL(MID$(RC$,20,3))THENWS=VAL(MID$(RC$,20,3)):WD=VAL(MID$(RC$,19,1))
690 IFWS=VAL(MID$(RC$,20,3))THENDA$(5)=MID$(RC$,1,6)
700 IFRA<VAL(MID$(RC$,23,5))THENRA=VAL(MID$(RC$,23,5)):DA$(6)=MID$(RC$,1,6)
710 IFVAL(MID$(RC$,23,5))<>0THENPC=PC+1
720 IFSN<VAL(MID$(RC$,28,4))THENSN=VAL(MID$(RC$,28,4)):DA$(7)=MID$(RC$,1,6)
730 IFRH<VAL(MID$(RC$,32,3))THENRH=VAL(MID$(RC$,32,3)):DA$(9)=MID$(RC$,1,6)
740 H=VAL(MID$(RC$,13,3)):L=VAL(MID$(RC$,16,3))
750 TP=65-INT((H+L)/2):IFSGN(TP)=-1THENTP=INT((H+L)/2)-65:GOTO770
760 DE=DE+TP:GOTO780
770 ED=ED+TP
780 RETURN
790 PRINT"[147]      [211]EARCHING FOR "MO$"/"DA$"/"YR$
800 GOSUB210:GOSUB200:R=0:FORPT=1TOTR%:X1=PT:GOSUB170:RC$=""
810 GOSUB160:RC$="":FORA=1TO6:GET#1,A$:RC$=RC$+A$:NEXT
820 IFSE$=RC$THENR=PT:PT=TR%:RC$=""
830 NEXT
840 IFR=0THEN870
850 A$="":GOSUB160:GOSUB180
860 GOSUB240:RETURN
870 GOSUB240:PRINT"          [210]ECORD NOT FOUND.":RETURN
880 F=1:PRINT"[147][211]EARCH BY [198][146]IELD OR [210][146]ECORD NUMBER?"
890 GOSUB220:IFG$="R"THEN1060
900 IFG$<>"F"THEN890
910 PRINT"[147][197]NTER NUMBER OF FIELD FOR SEARCH:"
920 PRINTTAB(7)" 1. [146]  [211]PECIFIC [196]ATE
930 [153][163]7)" 2. WAIT  CHR$ENERATE (null)ONTHLY (null)EPORT
940 PRINTTAB(7)" 3. [146]  [210]ETURN TO [205]AIN [205]ENU
950 [141]220:G[178][198](G$)[171]48:[145]G[137]980,250,970
960 [137]950
970 [142]
980 [153]"LOAD               (null)EARCH FOR STR$ATE
990 PRINT"[197]NTER DATE (MONTH, DAY, YEAR)"
1000 PRINT"[211]EPARATE EACH ENTRY WITH A COMMA.":INPUTMO$,DA$,YR$
1010 IFVAL(DA$)<=9THENDA$="0"+DA$
1020 IFVAL(MO$)<=9THENMO$="0"+MO$
1030 IFVAL(YR$)<=9THENYR$="0"+YR$
1040 SE$=DA$+MO$+YR$:GOSUB790:IFR=0THENGOSUB2350:RETURN
1050 GOSUB2640:GOSUB2350:RETURN
1060 PRINT"[147]":GOSUB210:GOSUB200:RC$=""
1070 PRINT"[210]ECORD NUMBER FOR [211]EARCH?":INPUTR:IFR>TR%THEN720
1080 X1=R:GOSUB170:GOSUB160:GOSUB180:GOSUB190:GOSUB240:GOSUB2640:GOSUB2350
1090 RETURN
1100 GOSUB240:PRINT"[147][201]NVALID [210]ECORD [206]UMBER":GOSUB2350:RETURN
1110 PRINT"":PRINTCHR$(14):FL=0:F=0:Q=FRE(O)
1120 PRINT"[147]           [215][197][193][212][200][197][210] [208][210][207][208][200][197][212]
1130 [153]"     1 WAIT     VALNTER (null)EW STR$ATA
1140 PRINT"     2 [146]     [198]ORECAST
1150 [153]"     3 WAIT     (null)EARCH STR$ATA
1160 PRINT"     4 [146]     [196]EGREE [196]AY [210]EGISTER
1170 [153]"     5 WAIT     VALXIT (null)ROGRAM
1180 PRINT"     0 [146]     [212]OGGLE [208]RINTER [207]PTION
1190 [153]"":[153]"     ";TR%;" (null)ECORDS IN STR$ATA PEEKASE.":[153]""
1200 [139]PR[178]1[167][153]"             (null)RINTER (null)(null) "
1210 [139]PR[178]0[167][153]"             (null)RINTER (null)ASCASC "
1220 [141]220:G[178][197](G$):[145]G[141]1270,3000,880,3150,3280
1230 [139]G$[178]"0"[167][141]1250
1240 [137]1110
1250 [139]PR[178]0[167]PR[178]1:[142]
1260 [139]PR[178]1[167]PR[178]0:[142]
1270 [153]"LOADVALNTER STR$ATE: (null)ONTH, STR$AY, (null)EAR AS 12,31,84"
1280 [153]"(null)EPARATE EACH ENTRY WITH A COMMA.":[133]MO$,DA$,YR$
1290 [139][197](DA$)[179][178]9[167]DA$[178]"0"[170]DA$
1300 [139][197](MO$)[179][178]9[167]MO$[178]"0"[170]MO$
1310 [139][197](YR$)[179][178]9[167]YR$[178]"0"[170]YR$
1320 [139]RC%[178]0[167]1370
1330 [141]210:[141]200:X1[178]RC%:[141]170:[141]160
1340 G$[178]"":[129]A[178]1[164]6:[161]#1,A$:G$[178]G$[170]A$:[130]:[141]240
1350 [139][202](G$,3,2)[179]MO$[167]MP$[178]"00":MS$[178]"00"
1360 [139][202](G$,5,2)[179]YR$[167]AP$[178]"00":MP$[178]"00":MS$[178]"00":AS$[178]"00"
1370 BA$[178]"":[141]3020:[141]3030
1380 HI$[178]"":[153]"LOADVALNTER LEFT$IGH (null)EMPERATURE:";:[133]HI$
1390 LO$[178]"":[153]"LOADVALNTER (null)OW (null)EMPERATURE:";:[133]LO$
1400 [141]3090:WS$[178]"":[153]"LOADVALNTER ATNVERAGE (null)IND (null)PEED":[133]WS$:WS[178][197](WS$)
1410 RA$[178]"":[153]"LOADVALNTER (null)RECIPITATION [0.00] INCHES.":[133]RA$
1420 MP$[178][196]([197](MP$)[170][197](RA$)):AP$[178][196]([197](AP$)[170][197](RA$))
1430 SN$[178]"":[153]"LOADVALNTER (null)NOWFALL TO NEAREST TENTH INCH.":[133]SN$
1440 MS$[178][196]([197](MS$)[170][197](SN$)):AS$[178][196]([197](AS$)[170][197](SN$))
1450 RH$[178]"":[153]"LOADVALNTER (null)ELATIVE LEFT$UMIDITY";:[133]RH$
1460 CC$[178]"":[153]"LOADVALNTER LENLOUD LENOVER (null)ERCENTAGE";:[133]CC$
1470 WC$[178]"":[153]"LOADVALNTER COMMENT ON CURRENT (null)X LENONDITIONS:"
1480 [153]"(null)IMIT COMMENTS TO 40 LENHARACTERS.  ((null)NE  FULL SCREEN LINE.)
1490 PRINT"      [196]O NOT USE A [195]OMMA OR [195]OLON.      ":PRINT:INPUTWC$:PRINT"[147]"
1500 RC$=DA$+MO$+YR$+BA$
1510 RC$=RC$+CR$+LEFT$(BL$,1-LEN(CR$))
1520 RC$=RC$+LEFT$(BL$,3-LEN(HI$))+HI$
1530 RC$=RC$+LEFT$(BL$,3-LEN(LO$))+LO$
1540 RC$=RC$+DI$+LEFT$(BL$,1-LEN(DI$))
1550 RC$=RC$+LEFT$(BL$,3-LEN(WS$))+WS$
1560 RC$=RC$+LEFT$(BL$,5-LEN(RA$))+RA$
1570 RC$=RC$+LEFT$(BL$,4-LEN(SN$))+SN$
1580 RC$=RC$+LEFT$(BL$,3-LEN(RH$))+RH$
1590 RC$=RC$+LEFT$(BL$,3-LEN(CC$))+CC$
1600 RC$=RC$+WC$+LEFT$(BL$,40-LEN(WC$))
1610 RC$=RC$+LEFT$(BL$,5-LEN(MP$))+MP$
1620 RC$=RC$+LEFT$(BL$,6-LEN(AP$))+AP$
1630 RC$=RC$+LEFT$(BL$,5-LEN(AS$))+AS$
1640 RC$=RC$+LEFT$(BL$,5-LEN(MS$))+MS$
1650 RC%=RC%+1:TR%=TR%+1:R=RC%:IFTR%=721THENTR%=720
1660 GOSUB2640:PRINT"     [201]S [196]ATA [195]ORRECT? ([217]ES OR [206]O)       "
1670 GOSUB220:IFG$="N"THENRC%=RC%-1:TR%=TR%-1
1680 IFG$="N"THENPRINT"[210]E-ENTER FROM START":FORT=1TO5000:NEXT:GOTO1270
1690 IFG$<>"Y"THEN1670
1700 GOSUB210:X1=RC%:GOSUB170:GOSUB190:GOSUB200:GOSUB160
1710 PRINT#1,RC$:CLOSE1:GOSUB190:PRINT#15,"S0:RC.INDEX":CLOSE15
1720 OPEN1,8,2,"RC.INDEX,S,W"
1730 PRINT#1,RC%","TR%","HD$","CD$","MP$","AP$","MS$","AS$:CLOSE1
1740 IFRC%=1ANDTR%=1THEN1770
1750 NO%(RC%)=RC%:IN$(RC%)=MID$(RC$,7,5):IFRC%=1ANDTR%=1THEN1770
1760 GOSUB2520
1770 BA=VAL(MID$(RC$,7,5)):CR%=VAL(MID$(RC$,12,1)):DI=VAL(MID$(RC$,19,1))
1780 IFPR=1THENGOSUB140
1790 PRINT"[147]":PRINT"       [199]ENERAL [211]HORT [212]ERM [198]ORECAST      "
1800 IFBA>=30.2ANDCR%=1ANDDI>=6ANDDI<=8THEN2040
1810 IFBA>=30.2ANDCR%=2ANDDI>=6ANDDI<=8THEN2050
1820 IFBA>=30.1ANDBA<=30.2ANDCR%=1ANDDI>=6ANDDI<=8THEN1990
1830 IFBA>=30.1ANDBA<=30.2ANDCR%=5ANDDI>=6ANDDI<=8THEN2000
1840 IFBA>=30.1ANDBA<=30.2ANDCR%=2ANDDI>=6ANDDI<=8THEN2020
1850 IFBA>=30.1ANDBA<=30.2ANDCR%=3ANDDI>=6ANDDI<=8THEN2030
1860 IFBA>=30.1ANDBA<=30.2ANDCR%=2ANDDI<=5ANDDI>=4THEN2060
1870 IFBA>=30.1ANDBA<=30.2ANDCR%=3ANDDI=5ORDI=4THEN2070
1880 IFBA>=30.1ANDBA<=30.2ANDCR%=2ANDDI<=4ANDDI>=2THEN2090
1890 IFBA>=30.1ANDBA<=30.2ANDCR%=3ANDDI<=4ANDDI>=2THEN2100
1900 IFBA<=29.8ANDCR%=2ANDDI>=2ANDDI<=3THEN2140
1910 IFBA<=29.8ANDCR%=3ANDDI<=5ANDDI>=3THEN2230
1920 IFBA<=29.8ANDCR%=3ANDDI<=3ANDDI>=1THEN2260
1930 IFBA<=29.8ANDCR%=5THEN2290
1940 IFBA<=30.1ANDCR%=3ANDDI>=4ANDDI<=8THEN2180
1950 IFBA<=30.1ANDCR%=4ANDDI<=6ANDDI>=5THEN2200
1960 IFBA<=30.1ANDCR%=2ANDDI>=2ANDDI<=3THEN2110
1970 IFBA<=30.1ANDCR%=2ANDDI=4THEN2170
1980 PRINT"[204]ITTLE CHANGE DURING NEXT 24 HOURS.":GOTO2300
1990 PRINT"[198]AIR, WITH LITTLE TEMPERATURE CHANGE FORNEXT DAY OR TWO.":GOTO2300
2000 PRINT"[198]AIR TODAY, WARMER WITH A CHANCE OF SOME";
2010 PRINT"RAIN WITHIN 2 DAYS.":GOTO2300
2020 PRINT"[212]URNING WARMER, WITH RAIN LIKELY IN 24  TO 36 HOURS.":GOTO2300
2030 PRINT"[215]ARMER, WITH RAIN IN 18-36 HOURS.":GOTO2300
2040 PRINT"[195]ONTINUED FAIR WITH LITTLE CHANGE IN    TEMPERATURE.":GOTO2300
2050 PRINT"[198]AIR, WITH SLOWLY RISING TEMPERATURES   FOR NEXT 2 DAYS.":GOTO2300
2060 PRINT"[208]RECIPITATION LIKELY WITHIN 24 [200]OURS.":GOTO2300
2070 PRINT"[201]NCREASING WINDS, [208]RECIPITATION LIKELY
2080 [153]"WITHIN 12-24 HOURS.":[137]2300
2090 [153]"(null)AIN WITHIN 12-18 HOURS.":[137]2300
2100 [153]"PEEKECOMING WINDY WITH RAIN LIKELY WITHIN  12-24 HOURS.":[137]2300
2110 [153]"RIGHT$N (null)INTER,  (null)RECIPITATION LIKELY WITHIN 24 HOURS.
2120 PRINT"[201]N [211]UMMER, [195]LOUDY WITH LIGHT BREEZES.   [210]AIN LIKELY IN A DAY OR TWO.
2130 [137]2300
2140 [153]"RIGHT$N (null)UMMER, (null)AIN LIKELY WITHIN 24 HOURS.
2150 PRINT"[201]N [215]INTER, [210]AIN OR [211]NOW LIKELY, WINDS   INCREASING.
2160 [137]2300
2170 [153]"(null)ORE (null)AIN FOR NEXT DAY OR TWO.":[137]2300
2180 [153]"LEFT$IGH WINDS AND POSSIBLE HEAVY RAIN TODAY";
2190 [153]"LENLEARING AND COOLER TOMORROW.":[137]2300
2200 [153]"LENLEARING WITHIN A FEW HOURS.  ASCAIR
2210 PRINT"WEATHER FOR NEXT SEVERAL DAYS.
2220 [137]2300
2230 [153]" (null)EVERE (null)TORM (null)ARNING!
2240 PRINT"[215]INDY WITH HEAVY PRECIPITATION TODAY.
2250 [153]"LENLEARING AND TURNING COOLER TOMORROW.":[153]"":[137]2300
2260 [153]"(null)EVERE NORTHEAST GALES, WITH HEAVY RAIN OR SNOW.
2270 PRINT"[212]URNING COOLER IN [215]INTER.
2280 [137]2300
2290 [153]"LENLEARING AND COOLER.
2300 IFPR=1THENGOSUB150
2310 GOSUB2350:IFTR%=1THENCL=0:GOSUB2580:GOTO2330
2320 GOSUB2380
2330 IFCL=0THENPRINT"     [206]O [193]DDITIONAL [196]ATA [193]VAILABLE":GOTO2350
2340 PRINT"   [211]IMILIAR [196]ATA FOUND IN [198]ILE":GOSUB2350:GOSUB3290:PRINT"[145][145]"
2350 CLOSE15:GOSUB210:CLOSE15
2360 PRINT"       [208]RESS ANY KEY TO CONTINUE        ";
2370 GOSUB220:PRINT"[147]":RETURN
2380 CL=0:A=0:U=1:IFRC%=1ANDTR%=1THEN2520
2390 U=0:FORT=1TOTR%:IFT=RC%THEN2410
2400 IFBA$=IN$(T)ANDNO%(T)<>RC%THENU=U+1:HO%(U)=NO%(T)
2410 NEXT:IFU=0THEN2510
2420 T=0:C=0:GOSUB210:GOSUB200
2430 T=T+1:RC$="":IFT>UTHEN2510
2440 X1=HO%(T):GOSUB170
2450 GOSUB160:FORA=1TO19:GET#1,A$
2460 RC$=RC$+A$:NEXT
2470 IFCR$<>MID$(RC$,12,1)THEN2430
2480 IFDI$<>MID$(RC$,19,1)THEN2430
2490 C=C+1:D%(C)=HO%(C)
2500 CL=1:GOSUB240:RETURN
2510 CL=0:GOSUB240:RETURN
2520 GOSUB210:OPEN1,8,2,"BA.INDEX,S,R"
2530 FORP=1TOTR%:INPUT#1,NO%(P),IN$(P):NEXT:GOSUB240
2540 FORI=1TOTR%:IFI=RC%THENI=I+1
2550 FORJ=ITOTR%:IFIN$(I)<IN$(J)THEN2570
2560 HI$=IN$(I):IN$(I)=IN$(J):IN$(J)=HI$:NI=NO%(I):NO%(I)=NO%(J):NO%(J)=NI
2570 NEXT:NEXT
2580 GOSUB210:PRINT#15,"S0:BA.INDEX"
2590 IFTR%=1THENNO%(1)=RC%:IN$(1)=STR$(BA)
2600 OPEN1,8,2,"BA.INDEX,S,W":I=0
2610 I=I+1:IFI>TR%THEN2630
2620 PRINT#1,NO%(I):PRINT#1,IN$(I):GOTO2610
2630 GOSUB240:PRINT"[147]":RETURN
2640 IFPR=1THENGOSUB140
2650 PRINT"[147][210]ECORD#[146]"R;"[196]ATA [197]NTRY FOR:[146]";
2660 PRINTMID$(RC$,3,2);"/";MID$(RC$,1,2);"/";MID$(RC$,5,2)
2670 PRINT"[194]AROMETRIC [208]RESSURE........ ";MID$(RC$,7,5)"INCHES"
2680 PRINT"[200]IGH [212]EMPERATURE...........";:HI$=MID$(RC$,13,3)
2690 PRINTVAL(HI$)"[196]EG. [198]"
2700 PRINT"      [206]ORMAL [200]IGH..........";MH(VAL(MID$(RC$,3,2)))"[196]EG. [198]"
2710 PRINT"[204]OW [212]EMPERATURE............";:LO$=MID$(RC$,16,3)
2720 PRINTVAL(LO$)"[196]EG. [198]"
2730 PRINT"      [206]ORMAL [204]OW...........";ML(VAL(MID$(RC$,3,2)))"[196]EG. [198]"
2740 PRINT"[215]IND [196]IRECTION............. ";
2750 WD=VAL(MID$(RC$,19,1)):PRINTDI$(WD)
2760 PRINT"[215]IND [211]PEED.................";VAL(MID$(RC$,20,3));"[205][208][200]"
2770 PRINT"[210]AINFALL (PAST 24 [200]RS).....";VAL(MID$(RC$,23,5))"INCHES"
2780 PRINT"      [206]ORMAL [205]ONTHLY [210]AIN..";AR(VAL(MID$(RC$,3,2)));"INCHES"
2790 PRINT"      [205]ONTHLY [210]AIN TO DATE.";VAL(MID$(RC$,79,5))"INCHES"
2800 PRINT"      [217]EARLY [210]AIN TO DATE..";VAL(MID$(RC$,83,6))"INCHES"
2810 PRINT"[211]NOWFALL (PAST 24 [200]RS).....";VAL(MID$(RC$,28,4))"INCHES"
2820 PRINT"      [206]ORMAL [205]ONTHLY [211]NOW..";AS(VAL(MID$(RC$,3,2)))"INCHES"
2830 PRINT"      [205]ONTHLY [211]NOW TO DATE.";VAL(MID$(RC$,89,5))"INCHES"
2840 PRINT"      [217]EARLY [211]NOW TO DATE..";VAL(MID$(RC$,94,6))"INCHES"
2850 PRINT"[210]ELATIVE [200]UMIDITY..........";VAL(MID$(RC$,32,3));"%"
2860 PRINT"[208]ERCENT [195]LOUD [195]OVER........";VAL(MID$(RC$,35,3));"%"
2870 HI=VAL(HI$):LO=VAL(LO$):HD=65-INT((HI+LO)/2)
2880 TD=(HI+LO)/2:RH=VAL(MID$(RC$,32,3)):RH=RH/100
2890 IFSGN(HD)=-1THEN2930
2900 Z=VAL(HD$)+HD:HD$=STR$(Z):PRINT"[200]EATING [196]EGREE [196]AYS........";HD
2910 IFF=1THEN2970
2920 PRINT"      [212]OTAL FOR [211]EASON.....";HD$:GOTO2970
2930 CD=(INT(HI+LO)/2)-65:IFSGN(CD)=-1THEN2970
2940 Z=VAL(CD$)+CD:CD$=STR$(Z):PRINT"[195]OOLING [196]EGREE [196]AYS........";CD
2950 IFF=1THEN2970
2960 PRINT"      [212]OTAL FOR [211]EASON.....";CD$
2970 PRINTMID$(RC$,38,40);
2980 IFPR=1THENGOSUB150
2990 RETURN
3000 PRINT"[147]          [198]ORECAST [215]EATHER
3010 [141]3020:[141]3030:[141]3090:[153]"LOAD":[141]1780:[142]
3020 [153]"LOADVALNTER:":[153]"PEEKAROMETRIC (null)RESSURE":[133]BA$:BA[178][197](BA$):[142]
3030 [153]"LOAD(null)ATE OF LENHANGE: "
3040 [153]"(null)APID LENHANGE IS ANY CHANGE GREATER THAN 0.06 INCHES PER HOUR.
3050 PRINT"[197]NTER:":PRINT" 1.[146]  [211]TEADY"TAB(20)" 4.[146]  [211]LOWLY [210]ISING"
3060 PRINT" 2.[146]  [198]ALLING [211]LOWLY"TAB(20)" 5.[146]  [210]ISING [210]APIDLY"
3070 PRINT" 3.[146]  [198]ALLING [210]APIDLY":PRINT
3080 CR$="":INPUTCR$:CR%=VAL(CR$):RETURN
3090 PRINT"[147][197]NTER [206]UMBER FOR [215]IND [196]IRECTION:
3100 [153]" 1.WAIT (null)ORTH"[163]20)" 5.WAIT (null)OUTH
3110 PRINT" 2.[146] [206]ORTHEAST"TAB(20)" 6.[146] [211]OUTHWEST
3120 [153]" 3.WAIT VALAST"[163]20)" 7.WAIT (null)EST
3130 PRINT" 4.[146] [211]OUTHEAST"TAB(20)" 8.[146] [206]ORTHWEST
3140 DI$[178]"":[153]:[133]DI$:DI[178][197](DI$):[142]
3150 [153]"LOAD         STR$EGREE STR$AY (null)EGISTERS
3160 PRINT"[200]EATING [196]EGREE [196]AYS: ";HD$
3170 PRINT"[195]OOLING [196]EGREE [196]AYS: ";CD$
3180 PRINTTAB(5)"[212]OTALS AS OF LAST ENTRY.
3190 [153]"       1.WAIT  LENLEAR LEFT$EATING STR$EGREE STR$AYS
3200 PRINT"       2.[146]  [195]LEAR [195]OOLING [196]EGREE [196]AYS
3210 [153]"       3.WAIT  (null)ETURN TO (null)AIN (null)ENU
3220 GOSUB220:IFG$="3"THENRETURN
3230 IFG$="1"THENHD$="00":GOTO3260
3240 IFG$="2"THENCD$="00":GOTO3260
3250 GOTO3220
3260 GOSUB210:PRINT#15,"S0:RC*":CLOSE15:OPEN1,8,2,"RC.INDEX,S,W"
3270 PRINT#1,RC%","TR%","HD$","CD$","MP$","AP$","MS$","AS$:CLOSE1:RETURN
3280 END
3290 F=1:FORX=1TOC
3300 IFD%(X)=TR%+1ANDTR%<720THENRETURN
3310 X1=D%(X):GOSUB170:GOSUB210:GOSUB200
3320 GOSUB160:GOSUB180
3330 R=D%(X):IFR=RC%THEN3370
3340 IFR=0THEN3370
3350 GOSUB2640:GOSUB2350:GOSUB240:Y=Y+1:IFY<4THEND%(X)=D%(X)+1:GOTO3300
3360 IFD%(X)+3<D%(X+3)THENX=X+4
3370 NEXT
3380 PRINT"                [197]ND OF [198]ILE":GOSUB240:F=0:RETURN
3390 REM HIGH TEMPERATURE DATA
3400 DATA47.6,50.8,59.3,70.7,77.9,84.2
3410 DATA87.4,86.2,80.4,70.1,59.9,50.4
3420 REM LOW TEMPERATURE DATA
3430 DATA27.3,29.0,36.5,45.9,55.0,62.6
3440 DATA66.9,66.3,59.3,46.7,37.1,29.9
3450 REM MONTHLY PRECIPITATION DATA
3460 DATA3.32,3.30,3.77,3.17,3.61,3.81
3470 DATA4.57,4.21,3.65,3.00,2.74,3.31
3480 REM MONTHLY SNOWFALL DATA
3490 DATA3.2,2.4,1.9,.1,0,0,0,0,0,0,.2,1.4
3500 DATA"[206]ORTH","[206]ORTHEAST","[197]AST","[211]OUTHEAST","[211]OUTH","[211]OUTHWEST"
3510 DATA"[215]EST","[206]ORTHWEST"